10 FORT=49152TO49327:READA:POKET,A:NEXT
20 POKE820,14:REM SCREEN COLOR
30 K=256:XL=828:YL=830:M=49152:A=90:B=40:C=20
40 SYS49262:REM COLOR/CLEAR
50 REM MAX X=255!
60 FORX=0TO255STEP.5
70 Y=INT(A+B*SIN(X/C))
80 GOSUB100:NEXT
90 GOTO90
100 POKEXL,X:POKEYL,Y:SYSM:RETURN
1000 DATA169,0,133,254,56,169,199,237,62,3,72,41,248,10,38,254,10,38,254,10,38
1010 DATA254,72,141,64,3,165,254,141,65,3,104,10,38,254,10,38,254,109,64,3,133
1020 DATA253,165,254,109,65,3,133,254,173,60,3,41,248,101,253,133,253,173,61,3
1030 DATA101,254,133,254,104,41,7,101,253,133,253,165,254,105,32,133,254,173,60
1040 DATA3,41,7,170,189,101,192,141,63,3,160,0,177,253,13,63,3,145,253,96,128
1050 DATA64,32,16,8,4,2,1,80,169,8,13,24,208,141,24,208,169,32,13,17,208,141,17
1060 DATA208,169,63,133,216,169,0,133,215,168,145,215,160,63,162,32,145,215,136
1070 DATA208,251,198,216,202,208,246,169,4,133,232,169,0,133,231,168,173,52,3
1080 DATA162,4,145,231,200,208,251,230,232,202,208,246,96